home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / CED / cedscripts / AltFileError.ced next >
Text File  |  1993-07-07  |  633b  |  42 lines
  1. /*
  2. ** AltFileError.ced
  3. **
  4. ** $VER: AltFileError.ced 1.0.0 (1.06.93)
  5. **
  6. ** This script tries to load the alternate file associated with
  7. ** an error, as specified by SAS/C's scmsg program.
  8. **
  9. ** This script requires CygnusEd Professional v3.5 (or later) to run.
  10. **
  11. ** SAS/C is a registered trademark of SAS Institute, Inc.
  12. **
  13. ** Copyright © 1993 ASDG, Incorporated  All Rights Reserved
  14. */
  15.  
  16. IF ~SHOW('P', 'SC_SCMSG') THEN DO
  17.     ADDRESS 'rexx_ced' DM
  18.     EXIT 0
  19. END
  20.  
  21.  
  22. ADDRESS 'SC_SCMSG'
  23.  
  24. OPTIONS RESULTS
  25.  
  26. 'ALTFILE'
  27. FILE = RESULT
  28.  
  29. 'ALTLINE'
  30. LINE = RESULT
  31.  
  32. OPTIONS
  33.  
  34. ADDRESS 'rexx_ced'
  35.  
  36. IF FILE ~= "" THEN DO
  37.     OW FILE
  38.     LL LINE
  39. END
  40.  
  41. EXIT 0
  42.